USE [Bases2]
GO
/****** Object:  StoredProcedure [dbo].[EliminarTipoCuenta]    Script Date: 11/02/2011 21:26:43 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE PROCEDURE [dbo].[EliminarTipoCuenta]
    @Id_Tipo int   
AS 
BEGIN
    SET NOCOUNT ON
    BEGIN TRANSACTION
    DECLARE @Contador int
    SET @Contador=0        
    
    SELECT @Contador=COUNT(1)
    FROM CUENTA WHERE id_tipo_cuenta=@Id_Tipo
    
    IF @Contador>0
    BEGIN
	SELECT 'No es posible eliminar este tipo de cuenta pues existen cuentas asignados a él.'
    END
    ELSE
    BEGIN
	DELETE FROM TIPO_CUENTA WHERE id_tipo_cuenta=@Id_Tipo		
	SELECT 'Tipo de cuenta eliminado correctamente.'
    END	
    COMMIT
    SET NOCOUNT OFF
END
